perm filename HACK[CRE,BGB] blob sn#020181 filedate 1973-01-16 generic text, type T, neo UTF8
00100	TITLE HACK
00200	
00300	SA:	INIT 1,17
00400		SIXBIT/XGP/
00500		0
00600		JRST[OUTSTR[ASCIZ/CAN'T INIT XGP.
00700	/]↔	INCHRW↔JRST SA]
00800	
00900		OUT 1,[IOWD =20001,BUFFER↔0]
01000		RELEASE 1,
01100		OUTSTR[ASCIZ/END OF XGP TEST.
01200	/]↔	HALT
01300	
01400	BUFFER:
01500		FOR I←0,=999{
01600		1B11 + 77B23 + =19
01700		FOR J←1,=19 {707070707070↔}
01800	}	
01900		1B0
02000	END SA